home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON02 / ACT02A / common2.cst / 00101_speaker.ls < prev    next >
Encoding:
Text File  |  2003-09-23  |  594 b   |  24 lines
  1. property pspeakerSpr,paudioList
  2.  
  3.  
  4. on exitframe me
  5.   if the spriteNum of me <0 then  --only if it's a frame script
  6.     animateSpeaker pspeakerSpr,value(paudioList)
  7.   end if
  8. end
  9.  
  10.  
  11. on mouseUp me
  12.   if the spriteNum of me >0 then  --only if it's a sprite script
  13.     animateSpeaker pspeakerSpr,value(paudioList)
  14.   end if
  15. end
  16.  
  17.  
  18.  
  19. on getPropertyDescriptionList
  20.   set description=[:] 
  21.   addProp description,#pspeakerSpr,[#default:117,#format:#integer,#comment:"Enter speaker's sprite:"]
  22.   addProp description,#paudioList,[#default:"",#format:#string,#comment:"Enter audio list:"]
  23.   return description
  24. end